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! 
: Version: *v04-000' 
BASE SELESII SSIS TTT TET TCTs iititititty 


:* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'* ALL RIGHTS” RESERVED. 


® 
x 
® 
® 
4 ® 
:* re SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPI ® 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH TH * 
!® IN CLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTH * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO A M * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. ® 
. ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 

® 

* 

® 

® 

* 

* 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


See R ee RRR AA AA AE AERA RARER ARATE EERE EERE EES 


Convert to MDL data structures. 


' 

i 

i 

ie¢ 

i 

MODULE: ISGENC.REQ 

FACILITY: LINKER 

ABSTRACT: REQUIRE FILE FOR I-SECTION GENERATION CONTROL 

HISTORY: 

AUTHOR: T.J. PORTER 01-APR-77 

MODIFICATIONS: 

i 

i v03-001 0152 Jim Teague 10-Feb-1984 
i ange 138¢ SIZE to reflect maximum size of new variable 
os h globaT section names. 

i v02-002 BLS0026 Benn Schreiber 28-Nov-1980 
Remove ascii name string from isect generation tables. 

a v02-001 BLS0007 Benn Schreiber 15-Aug-1980 
ie 


a 
— 


> 


> 
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++ 
functional description: 


this is a require file which sets up all necessary data 
for generat ten of image sections. generation of image 
sections is driven by a table chosen depending upon 
the kind of Link being performed. 

exe_isgentbi is used for normal user executable 


' 

: 

} 

} 

i 

: mages 

: shr_isgentbl is used for shareable images 

: sys_isgentbl is used for system space images 
' the order of entries in these tables is the order in which 
: the image sections are generated. there is one 

; entry for each image section to be generated. 

' each entry provides the following information: 

: name of isection build routine 

! p-section attribute mask (the and mask) 

} p-section match ag 

: i=section code which appears in the isd of header 
: size of the isd written to header 

: page fault cluster size 
i 

i 

' 

: 

C 

4 

i 

i 

i 

i 

7 

i 

i 

i 

i 

L 


isd flags. 
this file Peauttes that sysdef be previously declared 
to define the isd’s and the image header layout. 
OMPILETIME 
NUM_ISECTS=0; ! VARIABLE FOR TABLE GENERATION 
DEFINE GENERIC I-SECTION TYPE PARAMETERS:- 
SIZE = NUMBER OF BYTES IN ISD OF HEADER 
CODE = IMAGE SECTION TYPE CODE IN ISD 
PFC = PAGE FAULT CLUSTER SIZE 
GBL = INDICATOR FOR WHETHER POTENTIALLY GLOBAL 
TRUE OR FALSE 
DZRO = DEMAND ALLOCATE ZERO FILL IMAGE SECTION 
TYPE INDICATOR = TRUE OR FALSE 
ITERAL 
SUFFIX_SIZE = 4, ! Size of “‘_nnn"’ global isd suffix 
NULL_SIZE = 0, ! NULL ISD TYPE 
NULL_CODE = 0, 
LL-PFC 0 = 0 
NULL“GBL_ = = ‘FALSE, 
; NULL_DZRO = FALSE, 
: NORMAL_GBL_ = FALSE, 
NORMAL_DZRO = FALSE, 
NORMAL_CODE = ISDSK_NORMAL, ' NORMAL ISD'S TYPE 
NORMAL_SIZE = ISDSK_LENPRIV, ' NORMAL ISD SiZE 
NORMAL_PFC = NULL_PFC, ! NORMALLY NULL 


ee | 


' | 
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| 
' | 


STACK_CODE = ISDSK_USRSTACK, ! STACK ISD TYPE CODE 
STACK_SIZE = ISDSk K-LENDZRO, ! DEMAND ZERO IS 
STACK_PFC == NULL , ! DEFAULT IS NULL 
STACK_GBL_ = FALSE, 
STACK_DZRO = TRUE, 
SHRFXD_CODE = ISLSC_SHRFXD, ! SHARABLE AT FIXED PLACE | 
SHRFXD_SIZE = ISDSK~ LENPRIV, ! IN THE ADDRESS SPACE 
SHRFXD-PFC = NULL 
SHRFXD_GBL_ = FALSE, 
SHRFXD-DZRO = FALSE, 
PRVFXD_CODE = ISL$C_PRVFXD, ! PRIVATE IN FIXED PLACE OF ADDRESS 
PRVFXD_SIZE = ISDSK-LENPRIV, 
PRVFXD_PFC = NULL_PFC, 
PRVFXD_GBL_ = FALSE, 
PRVFXD_DZRO = FALSE, 
SHRPIC_CODE = ISLSC_SHRPIC, ! SHAREABLE POSITION INDEPENDENT 
SHRPIC_SIZE = ISDSK. LENPRIV, 
SHRPIC"PFC = NULL_PFC, 
SHRPIC“GBL_ = FALSE, 
SHRPIC"DZRO = FALSE, | 
PRVPIC_CODE = ISLS$C_PRVPIC, ! PRIVATE PIC SECTIONS 
PRVPIC-SIZE = ISDSK-LENPRIV, 
PRVPIC “PFC = NULL PFC, 
PRVPIC-GBL_ = FALSE, 
PRVPIC“DZRO = FALSE. | 


MASK FOR READ, 
WRITE EX ECUTE “AND RELOCATABL E 

SEARCH MASK FOR PIC AND SHAREABLE P=SECTIONS 
i WHICH ARE READ, WRITE NE XE CUTABLE 

i AND RELOCATABLE 

MASK FOR VECTOR IMAGE SECTIONS 

MASK FOR SHAREABLE VECTOR IMAGE SECTIONS 


RDWRTEXEREL = GPSSM_WRT yoo ig EXE OR 
SHRPICMASK = RDWRTEXEREL OR GPSSh. SHR OR 
GPS$M 


ROWRTEXERELVEC = RDWRTEXEREL OR GPSS$M_ VEC, 
SHRPICVEC = SHRPICMASK OR GPSSM_VEC; 


Qreecesave 


GLOBAL LITERA 


ISDSC_ SIZE = ISD$K MAXLENGL BL + Suse SIZE : WEAK, ' SIZE OF FULL IMAGE SECTION DESCRIPTOR INCLUDING LINKER PART 
HDRSK_FILLCHR = 255 : BYTLIT WEAK ' FILL CHARACTER 

IHD$K_SHR = IHDS$K_LIM : ' JUST A DIFFERENT E 

IHDSK-ACTIVOFF = THDSK_LENGTH ' OFFSET TO ACTIVATION AREA 

I “SYMDBGOFF = IHDSR_ACTIVOFF + IHASK_LENGTH : WEAK, | OFFSET TO SYMBOL TABLE DATA 

IHD$K_IMGIDOFF = IHDSK_SYMDBGOFF + IHSSK-LENGTH : WEAK, ! OFFSET TO IMAGE IDENTIFICATION AREA 

IHD$K-PATCHOFF = JHDSK-IMGIDOFF + IHISK_CENGTH : WEAK, ! OFFSET TO PATCH CONTRO 

IHDS$K-MAXLENGTH = IWDSE PATCHOFF : WEAK; ' MAXIMUM HEADER LENGTH WITHOUT PATCH AREA 

HDRSK_MINFILL = 2 : WEAR; PINTRUA FILL Must EQUAL WIDTH 


: THE FOLLOWING MACROS GENERATE ACCESSING MACROS FOR BLOCK 


| 
} 
DEFINE THE HEADER FILLING | 
} 
| 
| 


1 
ISGENC REQ; 1 16-SEP-1984 16:51:49.20 Page 4 


STRUCTURES WHICH HAVE FIELDS OF BYTE, WORD OR LONG WIDTH. 


COMPILETIME 
YYYYYYYSIZE = 0; ! VARIABLE WHICH IS RESULTANT BLOCK LENGTH 


RACRO 
GENBLOCKF IELDS(BLKNAM)C) = 


CALLING SEQUENCE: 
GENBLOCKE IELDS(BLKNAM, 
FLDNAM] ,FLDWIDTH1, 
FLDNAM2, -FLDWIDTH2, 


FLDNAMN, FLDWIDTHN) ; 


FLDNAMI = THE NAME OF FIELD I IN og BLOCK 
FLDWIDTHI] = WIDTH IN BYTES OF FIELD I 


| 
THE MACRO GENERATES cn so MACROS OF THE FORM 
BLKNAMSX FLONAM WHERE X IS B, W, L FOR FIELD WIDTHS OF 


WHERE: 


IN ADDITION A MACRO OF FORM INIT BLKNAM IS 

GENERATED FOR STATIC INITIALIZATION OF BLOCK. FOR EXAMPLE 
INITIAL CINIT_BLKNAM(VALUE1,VALUE2,....VALUEN)) 

GENERATE A MACRO TO REFERENCE THE START OF THE BLOCK 


MACRO ZNAME(ZSTRING(BLKNAM),"SC_START') = 
0,0,0,02%QU0TE; 


GENERATE THE ACCESSING MACROS FOR ALL THE FIELDS OF THE BLOCK 
YYYYYYYYBBF (BLKNAM,0, ZREMAINING) ; 


DEFINE A wae? LITERAL (FOR LINK TIME pee DETECTION) WHOSE 
LUE IS NUMBER OF BYTES IN BLOCK 


GLOBAL LITERAL %NAME(ZSTRING(BLKNAM),"SC_SIZE") = YYYYYYYSIZE : WEAK; 
NOW DEF INE Me pHACRO THAT CAN BE USED TO STATICALLY INITIALIZE 
THE FIELDS OF THIS BLOCK 
MACRO NAMES 1S INIT_BLKNAM 
YYYCRESINIMACRO(ZNAME ("INIT_", ZSTRING(BLKNAM)), (Z2ZBBF(XZREMAINING)), (XXXBBF (ZREMAINING)))%, 
AUXILIARY MACROS:- 


YYYCRESINIMACRO(NAME, FORMAL, BODY) 
MACRO NAME FORMAL = 3REMOVE BODYZQUOTERZ, 


2ZZBBFCFLONAM, FLDWIDTH) = %NAME(ZSTRING(FLDNAM),'_FML')%, | 
XXXBBFCFLONAM, FLOWIDTH)] = ZIF FLDWIDTH EQL 1 ZTHEN BYTE 
| 
| 
| 
| 
| 
| 
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ISGENC REQ; 1 
ELSE ZIF FLOWIDTH EQL 2 XTHEN WORD 
% it LONG 
aFI 
CZNAME (ZSTRINGCFLDNAM),*_FML'))%, 
YYVFLOPREF IX (WIDTH) ernie WIDTH EQL 1 
ZELSE Hee EQL 2 
ZELSE IF oT EQL 4 


2FI 
RFI, 


YYYYYYYYBBF( BLKNAM, OFF, NAM, BYTS)() = 
MACRO ZNAME ( TSTRING(B BLKNAM) *$' TSTRING(VYYFLDPREFIZ(BYTS)),"_*, ZSTRING(NAM)) = 


OFF MINCBYT S*8, 32), 0 % 
ZASSIGN(YYYYYYYSIZE, *orfens 
YYYYYYYYBBF ( BLKNAM, OFF SBYTS, XREMAINING) &; 
DEF INE ACCESS MACROS FOR I-SECTION GENERATION CONTROL 
TABLE ENTRIES 


GENBLOCKF IELDS(ISC, 


Qeacacace 


! NAMES ARE 
SK, i PeSECTION A SK 
TCH, 2, i P-SECTION ATTRIBUTE MATCH 
CODE, 1, i J-SECT TYPE 
SIZE.1, i Isp SIZE 
PFC,1, i PAGE FAULT CLUSTER 
FLAGS.1 i ISD FLAGS 
MATCTL, 1); i MATCH CONTROL FIELD OF ISD 


MACRO 
ISECTDEF (NAME , TYPE ,MATCH)= 


THIS MACRO DEFINES AN — SECTION NAME AND THE PARAMETERS 

OF SUCH AN IMAGE Rad 
NAME IS A ot O BE ASSOCIATED WITH THE IMAGE SECTION 
TYPE IS ONE OF THE GENERIC TYPES LISTED ABOVE. 
MATCH IS THE OPATIERN OF P-SECTION ATTRIBUTES TO BE 
MATCHED IN THE SEARCH 


LITERAL 
x 


MATCH) = MATCH OR GPS$M_REL ' SET MATCH MASK ALWAYS RELOCATABLE 
ISDCODE') = ZNAME(RSTRING(TYPE) ." CODE"), | ISD TYPE CODE 
ISDS1Z") = ZNAME(ESTRING(TYPE), SIZE"),  ! SIZE OF ISD 
PFC*) = ZNAME(XSTRING(TYPE),' PFC’), i AND CLUSTER SIZE 
GBL') = INANE CISTRING(TYPE) » | °GBL") - i GLOBAL FLAG 
CRF") = ZIFCENAME(RSTRING(NAME),"_MATCH') | SET THE COPY ON REFERENCE 
AND (GPS$M_WRT OR ' FLAG IFF P-SECTION 
GPSSM_SHR)T EQL GPSSM_WRT i WRITABLE AND NOT SHAREABLE 
ZTHEN™ TRUE i 1S WRITABLE 


1 
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ELSE FALSE 
ZNAME (ZSTRING(NAME),"_DZRO') = XNAME(XZSTRING(TYPE) DZRO' ' DEMAND ZERO FLAG 
ZNAME (ZSTRING(NAME) ,""WRT') = SIF CXNAME(XSTRING(N nAvES RRATCH! ) |! WRITABLE FLAG IF P-SECTION 
AND GPS$M_WRT) NEQ ' I$ WRITABLE 
XZTHEN TRUE 
ZELSE ZI1F XNAME(NAME,'_DZRO') |! OR IF THE IMAGE SECTION 
THEN TRUE ' IS A DEMAND ZERO 
XELSE FALSE 


FI 
XNAME (ZSTRING(NAME),"_MTCLFLD') = ISDSK_MATALL;:%, 
ISGENTBLENTCISNAME,SRCHMASK] = INIT_ISC( 


THIS MACRO GENERATES ISECTION GENERATION CONTROL TABLE ENTRIES, 
IMAGE SECTIONS. PARAMETERS ASSOCIATED WITH THE PARTICULAR 


IMAGE Ss 
AME IS THE NAME OF a IMAGE SECTION TYPE 
SRCHMASK IS THE MASK OF P=SECTION ATTRIBUTES TO BE 
CONSIDERED IN SEARCH FOR PATTERNS 


MATCH CONTROL FIELD OF ISD'S 


eee ee ee ee 


CHMAS ! STORE AND MASK 
ZNAME (ZSTRING(ISNAME) , ° =MATCH') , i SET MATCH PATTERN 
XNAME (ZSTRING(ISNAME) ,*~ISDCODE*), i CODE FOR ISD 
XNAME (ZSTRING(ISNAME) ,*~ISDSIZ'), i SIZE OF 
ZNAME (XSTRING(ISNAME)."~PFC’), i AND PAGE PAULT CLUSTER 
SD$M_GBL*ZNAME (XZSTRING(ISNAME),'_GBL')) OR i SET ISECT 
(ISDSM~WRT*ZNAME(ZSTRING(ISNAME),°"WRT')) OR | DESCRIPTOR 
CISDSM~CRF ®ZNAME (ZSTRING(ISNAME),"“CRF')) OR | FLAGS 
(1SDSM~DZRO*ZNAM NAME CESTRING(ISNAMES ,"_DZRO')), 
TNAME (STRING (ISNAM E),*_MTCLFLD’) 
! 
THIS MACRO GENERATES AN IMAGE SECTION GENERATION CONTROL 
1 
ISGENTBL ( TBLNAM) (J= 
XASSIGN(NUM_ISECTS, (Z3LENGTH=1)/2) ' GET NUMBER IN 
i TABLE AND SET 
ZNAME (ZSTRING(TBLNAM),' ISECTS") : i IN VARIABLE 
TE INITIAL (NOM ISECTS) 
XNAME (XSTRING(TBLNAR) ~1SGEN NTBL hei ‘ GENERATE AND 
BLOCKVECTORCNUM™ I ISC$C_SIZE,BYTE | INITIALIZE A 
PT STAT LISCENTBCENT LERERA INING));&; i ENTRIES OF TABLE 


DEFINE INTERESTING IMAGE SECTION TYPES 


‘ 

‘ 

ISECTDEF (_U_R_ NORMAL ,GPSSM_REL t USER RO DATA, 

ISECTDEF (“U"RO,NORMAL , GPSSM URT OR GPSSM_REL):; i USER R/W DAT 

ISECTDEF (“U7X. “NORMAL, GPSSR EXE OR GPSSM_REL); i USER EXECUTE, ONLY 

ISECTDEF (-U-XO-NORMAL.GPSSAURT OR i USER, MODIFIABLE 
GPSSM_EXE OR GPSSM_REL); i EXECUTABLE CODE 

ISECTDEF(_U_R_V, NORMAL, GPSSM_REL OR”GPSSM_VEC); i RO VECTOR 

ISECTDEF (“UCROV, NORMAL, GPSSA~WRT OR sgeoeerye VEC i RW VECTOR 


F 4 
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ISECTDEF(_U_X_V, NORMAL, GPSSM_EXE OR GPSSH REL ! EXE ONLY VECTOR 
ISECTDEF(_U_XWV, NORMAL, GPSSM_WRT OR GPSSM EX ! MODIFIABLE 

OR GPSS$M_VEC OR GPSSM_REL); i EXECUTABLE VECTOR 
ISECTDEF (_ STACK, STACK i USER 


0); 
ISECTDEF (S_ALONE ,NORMAL ,GPSS$M_REL); STAND ALONE IMAGE 


THE SET FOR SHAREABLE IMAGES 


| 

| ; 

; 
! Ps 
i | : 
' ; 
ISECTDEF(_S_R_,SHRFXD,_U_R__MATCH OR GPSS$M_SHR); ! SHAREABLE NON-PIC IMAGE SECTIONS | : 
ISECTDEF ("S"RO,SHRFXD,_U_R@_MATCH OR GPSSM_SHR); : 
ISECTDEF ("S"X_,SHRFXD,_U_X__MATCH OR GPSS$M_SHR); : 
ISECTDEF (°S_X@,SHRFXD,_U_X@MATCH OR GPSSM_SHR) ; : 
ISECTDEF(___R_,PRVFXD,_U_R__MATCH); ! PRIVATE NON=PIC SET ; 
ISECTDEF (7 RO, PRVFXD,_U_R@_MATCH); ; 
ISECTDEF("""x_, »U_X__MATCH); : 
ISECTDEF (TTIX@, PRVF XD, U_X@_MATCH) ; : 
ISECTDEF(_SPR_,SHRPIC,_U_R__MATCH OR GPSSM_SHR OR GPSS$SM_PIC); ! SHAREABLE PIC SET “ 
ISECTDEF ("SPRO,SHRPIC,_U_R@_MATCH OR GPSSM_SHR OR GPS$M_PIC); ; 
ISECTDEF ("SPX_,SHRPIC,_U_X_ "MATCH OR GPSS$M_SHR OR GPSS$M_PIC); : 
ISECTDEF (“SPX@,SHRPIC,_ULXQ_MATCH OR GPSSM_SHR OR GPS$M_PIC); : 
ISECTDEF(__PR_,PRVPIC,_U_R__MATCH OR GPSS$M_PIC); ! PRIVATE PIC SET ; 
ISECTDEF (""PRO,PRVPIC,_U_R@_MATCH OR GPS$M_PIC); : 
ISECTDEF (""PX_ ,PRVPIC,_U_X__MATCH OR GPS$M_PIC); ; 
ISECTDEF (“PXG,PRVPIC,_U_XO_MATCH OR GPSSM_PIC); : 
ISECTDEF(_S_R_V, SHRFXD, _U_R_V_MATCH OR GPSS$M_SHR); ! SHAREABLE NON-PIC VECTOR SET ; 
ISECTDEF("S"ROV, SHRFXD, -U_ROV_MATCH OR GPSSM_SHR); ‘ 
ISECTDEF("S"X_V, SHRFXD, "U_X V_MATCH OR GPSSM_SHR); ; 
ISECTDEF (S_xQv, SHRFXD, ~U_XQVIMATCH OR GPSS$M_SHR); : 
ISECTDEF(___R_V, PRVFXD, _U_R_V_MATCH); ! PRIVATE NON-PIC VECTOR SET ; 
ISECTDEF (~~ ROV, PRVFXD, _U_ROV_MATCH); ; 
ISECTDEF("""X_V, PRVFXD, "U_X V"MATCH); : 
ISECTDEF (TTIXOV, PRVFXD, [UXQVIMATCH) ; ; 
ISECTDEF(_SPR_V, SHRPIC, _U_R_V_MATCH OR GPSSM_SHR OR GPSSM_PIC); ! SHAREABLE PIC VECTOR SET : 
ISECTDEF (“SPROV, SHRPIC, —U_ROV_MATCH OR GPSSM_SHR OR GPSS$M_PIC); : 
ISECTDEF ("SPX _V, SHRPIC, _U_X_V_MATCH OR GPSSM_SHR OR GPS$M_PIC); ; 
ISECTDEF (“SPXOV, SHRPIC, [ULXQVIMATCH OR GPSSM_SHR OR GPSSM_PIC); : 
ISECTDEF(__PR_V, PRVPIC, _U_R_V_MATCH OR GPSSM_PIC); ! PRIVATE PIC VECTOR SET : 
ISECTDEF(""PROV, PRVPIC, -U-ROVIMATCH OR GPSSM_PIC); : 
ISECTDEF ("PX _V, PRVPIC, "U_X V-MATCH OR GPSSM_PIC); : 
ISECTDEF (""PXOV, PRVPIC, ~U_XQVIMATCH OR GPS$M_PIC); . 

| 
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